Chip 1997 February

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1997 February / CHIP Şubat 1997.iso / mmed / 95quickv / data.z / PLINE32.DLL / SCRIPT / LOGON < prev

Wrap

Text File | 1996-04-01 | 11.8 KB | 592 lines

VERSION 2 lcd,$30009,"" sset,svaru,"V950915" set,varl,-1 set,varg,0 if,varr,<>,0,TOP set,varr,3 TOP: set,vare,0 sset,svare,"" sset,svarv,"" add,varl,1 sset,svarj,file(varl) ifeof,NOHUP sif,svarj,=,"",TOP extract,svarj,"|",1,svari extract,svarj,"|",2,svard sif,svari,=,"*",TOP sif,svard,<>,"",$ENDIF lcd,svard,"" endif sif,svari,=,"0",FRECOK sif,svari,=,"3",$ENDIF extract,svarj,"|",6,svar6 extract,svarj,"|",4,svar3 extract,svarj,"|",7,svar7 extract,svarj,"|",14,svarx extract,svarj,"|",15,svars sset,svarv,svar6 sif,svarx,=,"R",$ENDIF strcat,svarv,"|regfast|" sset,svaro,$30010 endif sif,svarx,=,"O",$ENDIF strcat,svarv,"|ordfast|" sset,svaro,$30011 endif sif,svarx,=,"F",$ENDIF strcat,svarv,"|feefast|" sset,svaro,$30012 endif strcat,svarv,svaru strcat,svarv,"|PIPEHOST.SCR|$DATE|$TIME|" strcat,svarv,svar3 strcat,svarv,"|" strcat,svarv,svar7 strcat,svarv,"|" strcat,svarv,svars strcat,svarv,"|" endif sif,svari,=,"3",FRECOK sif,svari,=,"S",NOHUP sif,svari,=,"R",$ENDIF extract,svarj,"|",3,svard val,svard,varl add,varl,-1 endif jump,TOP FRECOK: set,varq,varl extract,svarj,"|",3,svar0 extract,svarj,"|",4,svar3 extract,svarj,"|",5,svar4 extract,svarj,"|",6,svar6 extract,svarj,"|",7,svar7 extract,svarj,"|",8,svari val,svari,var3 extract,svarj,"|",9,svari val,svari,var5 extract,svarj,"|",10,svari val,svari,var6 extract,svarj,"|",11,svari val,svari,vard extract,svarj,"|",13,svars extract,svarj,"|",14,svarw extract,svarj,"|",16,svarq sif,svarq,<>,"",GOTALT sset,svarq,svar3 GOTALT: sendpurge,1 change_timer,55 sif,svar6,<>,"",L2OK sset,svare,$30013 set,vare,92 jump,BADEXIT L2OK: sif,svar3,<>,"",TS1 sset,svare,$30014 set,vare,90 jump,BADEXIT TS1: if,var3,<>,0,TS2 set,var3,60 TS2: jump,ts3 TS3: sif,svar0,<>,"",TS4 sset,svar0,"2400,N,8,1" TS4: sif,svar4,<>,"",TS5 sset,svar4,"AT&F" TS5: jump,TS6 TS6: jump,TSDONE TSDONE: SETCOMM,svar0 set,vara,0 WAIT4AT: DROP_CARRIER,0,DROPCAR send,"AT",varr set,vara,0 LOOKAGN: wait,1 LOOKFOR,"OK",WAIT1 LOOKFOR,"0",WAIT1 add,vara,1 if,vara,>,3,NORESET jump,LOOKAGN WAIT1: DROP_CARRIER,0,DROPCAR if,@carrier,=,0,NOCNOH hangup NOCNOH: send,svar4,varr waitfor,"OK",5,MODRES2 hangup add,vara,1 if,vara,>,3,MODRES2 jump,WAIT1 MODRES2: set,vara,0 MODT2: send,"ATQ0V1&D2&C1",varr waitfor,"OK",5,FORCED hangup add,vara,1 if,vara,>,3,NORESET jump,MODT2 NORESET: sset,svare,$30015 set,vare,91 jump,BADEXIT FORCED: send,"AT+FCLASS=0",varr waitfor,"OK",1,DIAL DIAL: set,varb,0 set,varm,0 set,varn,0 set,var7,0 set,var9,0 add,vart,1 DIALGO: str,vart,svarz offhook,1 set,vara,0 if,var1,>=,2,USE2ND if,var1,<,1,CHKMORE setcomm,"2400,N,8,1" CHKMORE: if,varb,>=,1,USE2ND if,var7,>=,1,USE2ND if,var9,>=,1,USE2ND jump,DIALIT USE2ND: sset,svar3,svarq setcomm,"2400,N,8,1" send,"AT",varr waiton,"OK",3,&NEXT,"" DIALIT: send,svar3,varr LOOP: waiton,"CONNECT",1,&NEXT,"" lookfor,"CONNECT",CONN lookfor,"BUSY",$ENDIF add,varb,1 if,varb,<=,var5,DIALGO sset,svare,$30016 set,vare,80 jump,BADEXIT endif lookfor,"NO CARRIER",$ENDIF add,var7,1 if,var7,<=,var5,DIALGO sset,svare,$30017 set,vare,81 jump,BADEXIT endif lookfor,"NO DIALTONE",$ENDIF sset,svare,$30018 set,vare,84 jump,BADEXIT endif lookfor,"VOICE",$ENDIF sset,svare,$30019 set,vare,83 jump,BADEXIT endif lookfor,"login:",START add,vara,1 if,vara,<,var3,LOOP add,var9,1 if,var9,<=,var5,DIALGO sset,svare,$30020 set,vare,82 jump,BADEXIT CONN: set,vara,0 sset,svar1,svar0 highspeed,0 LOOKB: waiton,"2400",1,&NEXT,"" lookfor,"login:",START add,vara,1 if,vara,<,10,LOOKB jump,START START: if,@carrier,=,0,LITEM DROP_CARRIER,1,DROPCAR LITEM: set,vara,0 set,varz,0 lookfor,"xnlogin:",$ENDIF set,varx,1 endif lookfor,"nlogin:",LOGNGIM lookfor,"ylogin:",LOGHGIM UNEWLP: waiton,"login",1,&NEXT,"" lookfor,"xnlogin:",$ENDIF set,varx,1 endif lookfor,"nlogin:",LOGNGIM lookfor,"ylogin:",LOGHGIM lookfor,"invalid login",UAG lookfor,"Command:",GOTCMD add,varz,1 if,varz,<,10,UNEWLP UAG: set,varz,0 send,"huh?",1 add,vara,1 if,vara,<,4,UNEWLP sset,svare,$30021 set,vare,70 jump,BADAGAIN LOGHGIM: sif,svarv,<>,"",$ENDIF set,varw,3 else set,varw,1 endif sset,svarv,"" jump,LOGTHER LOGNGIM: set,varw,2 LOGTHER: set,varz,0 LOTA: set,vara,0 lcd,$30022,"" sif,svarv,<>,"",$ENDIF sset,svarn,svarv if,varx,=,1,$ENDIF strcat,svarn,"X|" else strcat,svarn,"Z|" endif str,vart,svarz strcat,svarn,svarz strcat,svarn,"|" str,varg,svarz strcat,svarn,svarz str,var1,svarz strcat,svarn,svarz str,varb,svarz strcat,svarn,svarz str,var7,svarz strcat,svarn,svarz str,var9,svarz strcat,svarn,svarz strcat,svarn,"|" send,svarn,1 else send,svar6,1 endif sif,svarv,<>,"",FLEFAST LOGTAG: waiton,"Command:",3,&NEXT,"" lookfor,"Command:",GOTCMD lookfor,"invalid login",UAG lookfor,"login:",LOGTHER add,vara,1 if,vara,<,5,LOGTAG add,varz,1 if,varz,<,2,LOTA sset,svare,$30023 set,vare,71 jump,BADAGAIN GOTCMD: lcd,$30024,"" trapcomm,svarz extract,svarz,"|",2,svarc val,svarc,varz substr,"8$R@5G2K)QO",varz,1,svard set,vara,0 sset,svarz,"i1 |" strcat,svarz,svard strcat,svarz,"|" strcat,svarz,svar3 strcat,svarz,"|" strcat,svarz,svar1 strcat,svarz,"|" strcat,svarz,svar6 strcat,svarz,"|" strcat,svarz,svaru strcat,svarz,"|PIPEHOST.SCR|$DATE|$TIME|" strcat,svarz,svar7 strcat,svarz,"|" strcat,svarz,svarw strcat,svarz,"|" str,vart,svarx strcat,svarz,svarx strcat,svarz,"|" str,varg,svarx strcat,svarz,svarx strcat,svarz,"|" if,varx,=,1,$ENDIF strcat,svarz,"X|" else strcat,svarz,"Z|" endif strcat,svarz,svars strcat,svarz,"|" str,var1,svarx strcat,svarz,svarx str,varb,svarx strcat,svarz,svarx str,var7,svarx strcat,svarz,svarx str,var9,svarx strcat,svarz,svarx strcat,svarz,"|" SCMD2: send,svarz,1 waiton,"Command:",5,&NEXT,"" lookfor,"Bad command",TCMD2 lookfor,"Command:",BCMD3 TCMD2: add,vara,1 if,vara,>,5,NOCMD2 jump,SCMD2 NOCMD2: sset,svare,$30025 set,vare,72 jump,BADAGAIN BCMD3: trapcomm,svarr PROCF: if,varw,=,3,FAKEREG add,varl,1 sset,svarj,file(varl) ifeof,DONECF jump,NOTEOF FAKEREG: set,varw,1 extract,svarj,"|",2,svarx extract,svarj,"|",12,svard extract,svarj,"|",13,svarz sset,svarj,"2|" strcat,svarj,svarx strcat,svarj,"|" scrcat,svarj,svard strcat,svarj,"|" strcat,svarj,svarz jump,NOTEOF DONECF: set,varl,-2 jump,LOGOFF NOTEOF: sif,svarj,=,"",PROCF extract,svarj,"|",1,svari extract,svarj,"|",2,svard sif,svari,=,"*",PROCF sif,svari,=,"1",SHOWDIS sif,svari,=,"2",SHOWDIS sif,svari,=,"5",SHOWDIS sif,svari,=,"6",SHOWDIS sif,svari,=,"B",SHOWDIS sif,svari,=,"W",SHOWDIS jump,PASTDIS SHOWDIS: sif,svard,<>,"",$ENDIF lcd,svard,"" endif PASTDIS: sif,svari,=,"2",DOREG sif,svari,=,"0",BACKUPL sif,svari,=,"3",BACKUPL sif,svari,=,"4",DOORD sif,svari,=,"B",DOCMD sif,svari,=,"W",PWFOR sif,svari,=,"S",BACKUPL sif,svari,=,"R",BACKUPL sif,svari,=,"5",DOFSR jump,PROCF DOFSR: extract,svarj,"|",3,svarx extract,svarj,"|",4,svara extract,svarj,"|",9,svarb sif,svarx,=,"S",$ENDIF if,varx,=,0,$ENDIF sset,svar8,"uploadz " sset,svart,"zmsend,svara,svarb,0,vare" endif if,varx,=,1,$ENDIF sset,svar8,"uploadx " sset,svart,"xmsend,svara,vare" endif gosub,ZMODEM else if,varx,=,0,$ENDIF sset,svar8,"downloadz " sset,svart,"zmrecv,svara,svarb,0,vare" endif if,varx,=,1,$ENDIF sset,svar8,"downloadx " sset,svart,"xmrecv,svara,svarb,vare" endif gosub,ZMODEM endif jump,PROCF BACKUPL: add,varl,-1 jump,LOGOFF PWFOR: extract,svarj,"|",5,svari val,svari,vark extract,svarj,"|",3,svari extract,svarj,"|",4,svark send,svari,1 set,vara,0 WEGLIV: waiton,svark,1,&NEXT,"" lookfor,svark,GOTWEW lookfor,"Command:",PROCF add,vara,1 if,vara,>,vark,PROCF jump,WEGLIV GOTWEW: extract,svarj,"|",6,svari sif,svari,=,"0",PROCF sif,svari,=,"1",$ENDIF extract,svarj,"|",7,svara extract,svarj,"|",8,svarb if,varx,=,0,$ENDIF sset,svar8,"downloadz " sset,svart,"zmrecv,svara,svarb,0,vare" endif if,varx,=,1,$ENDIF sset,svar8,"downloadx " sset,svart,"xmrecv,svara,svarb,vare" endif gosub,STARTGS endif sif,svari,=,"2",$ENDIF extract,svarj,"|",7,svara extract,svarj,"|",8,svarb if,varx,=,0,$ENDIF sset,svar8,"uploadz " sset,svart,"zmsend,svara,svarb,0,vare" endif if,varx,=,1,$ENDIF sset,svar8,"uploadx " sset,svart,"xmsend,svara,vare" endif gosub,STARTGS endif jump,PROCF DOCMD: set,vara,0 TRYDA: extract,svarj,"|",3,svarz send,svarz,1 waiton,"Command:",5,&NEXT,"" lookfor,"Bad command",TRYDOC lookfor,"procedure...",$ENDIF sset,svara,"" sset,svarb,"" sset,svart,"zmrecv,svara,svarb,0,vare" sset,svar8,"downloadz" gosub,STARTGS endif lookfor,"Command:",PROCF TRYDOC: add,vara,1 if,vara,<,3,TRYDA sset,svare,$30026 set,vare,69 jump,BADAGAIN FLEFAST: lcd,svaro,"" extract,svarj,"|",12,svard extract,svarj,"|",13,svarz gosub,SENDREG DROP_CARRIER,0,DROPCAR if,vare,=,0,PROCF sset,svare,$30030 set,vare,63 jump,BADAGAIN DOREG: set,varv,0 jump,STARTDO DOORD: set,varv,1 STARTDO: set,vara,0 STARTR: if,varv,=,0,$ENDIF lcd,$30031,"" send,"reg",1 else lcd,$30032,"" send,"order",1 endif waiton,"procedure...",5,&NEXT,"" lookfor,"Bad command",TBC lookfor,"procedure...",STARTZ TBC: add,vara,1 if,vara,<,3,STARTR sset,svare,$30033 set,vare,64 jump,BADAGAIN STARTZ: extract,svarj,"|",3,svard extract,svarj,"|",4,svarz gosub,SENDREG if,vare,=,0,STARTG sset,svare,$30034 set,vare,63 jump,BADAGAIN STARTG: set,vara,0 LOOKCAG: waiton,"Command:",10,&NEXT,"" lookfor,"Bad command",WAKEU lookfor,"Command:",GOTC1 WAKEU: send,"record Waking you up...",1 add,vara,1 if,vara,<,3,LOOKCAG sset,svare,$30035 set,vare,61 jump,BADAGAIN GOTC1: lcd,$30036,"" jump,PROCF ZMODEM: set,vara,0 ZMODEMG: send,svar8,0 send,svarb,1 waiton,"procedure...",5,&NEXT,"" lookfor,"Bad command",BADSR lookfor,"procedure...",STARTGS BADSR: add,vara,1 if,vara,<,3,ZMODEMG sset,svare,$30037 set,vare,65 jump,BADAGAIN BSTARTGS: gosub,STARTGS jump,PROCF STARTGS: sif,svar8,=,"downloadz ",WERECV sif,svar8,=,"downloadx ",WERECV jump,FTD WERECV: lcd,$30038,svara FTD: exec_string,svart if,vare,=,0,GOODSR lcd,$30039,svara return GOODSR: sif,svar8,=,"uploadz ",FILESENT sif,svar8,=,"uploadx ",FILESENT add,varm,1 return FILESENT: add,varn,1 return SENDREG: sif,svarz,<>,"1",GOREG compress,svard,"$FLECOMP.TMP",vare if,vare,<>,0,GOREG sset,svard,"$FLECOMP.TMP" GOREG: if,varx,=,1,$ENDIF xmsend,svard,vare else zmsend,svard,"",0,vare endif return LOGOFF: if,@carrier,=,0,OKEXIT DROP_CARRIER,1,OKEXIT lcd,$30041,"" set,vara,0 SLOGOFF: send,"exit",1 waiton,"Goodbye",5,&NEXT,"" lookfor,"Goodbye",WEHANG add,vara,1 if,vara,>,5,NOLOGOFF jump,SLOGOFF NOLOGOFF: sset,svare,$30042 set,vare,75 jump,BADAGAIN WEHANG: if,@carrier,=,0,OKEXIT hangup OKEXIT: lcd,$30043,"" set,var1,0 set,var2,0 if,varl,<>,-2,TOP jump,NOHUP DROPCAR: OFFHOOK,0 add,var1,1 if,var1,>,var6,DIE if,var1,=,var6,$ENDIF set,varx,1 endif set,varl,varq add,varl,-1 lcd,$30044,"" add,varg,1 jump,TOP BADAGAIN: OFFHOOK,0 add,var2,1 if,var2,>,vard,DIE2 if,var2,=,vard,$ENDIF set,varx,1 endif set,varl,varq add,varl,-1 lcd,svare,"" add,varg,1 wait,1 jump,TOP DIE: set,vare,1 sset,svare,$30045 jump,BADEXIT DIE2: set,vare,3 sset,svare,$30046 jump,BADEXIT BADEXIT: sif,svare,<>,"",BE2ON set,vare,99 sset,svare,$30047 BE2ON: strcat,svaru," " lcd,svaru,svare if,vare,>,89,NOHUP DROP_CARRIER,0,DROPCAR if,@carrier,=,0,NOHUP hangup NOHUP: wait,1 exit,vare